home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / 450talk.mrg < prev    next >
Text File  |  1983-08-06  |  1KB  |  17 lines
  1. 200 '450 Baud Modification by Bruce D. Anderson - Voice 913-841-5220 - Data - 913-841-6424
  2. 425 CLOSE#1:OPEN COMM$ AS #1:PRINT#1,MODMINIT$;:IF BAU450 THEN GOSUB 11000
  3. 5026 PRINT"   5 -  450,E,7,1  (text)      6 -  450,N,8,1  (binary)
  4. 5027 PRINT" WARNING ! When On-Line,DON'T Change Baud & Parity at the same time!"
  5. 5055 IF Q$="F" THEN PRINT Q$:GOSUB 5815:PRINT:PRINT"Parameters reset to:";:BRUC=0:GOSUB 5100:GOTO 5095
  6. 5060 BRUC=0:Q=VAL(Q$):IF Q<1 OR Q>6 THEN BEEP:GOTO 5045 ELSE PRINT Q
  7. 5081 IF Q=6 THEN PAR$="N":DTA$="8
  8. 5083 IF Q=5 OR Q=6 THEN GOSUB 11000 ELSE 5085
  9. 5084 GOTO 5090
  10. 5090 PRINT:PRINT"New parameters are: ";:GOSUB 5100
  11. 5095 PRINT GO$:GOSUB 2800:GOTO 515
  12. 5100 COLOR BG,FG:IF BRUC=1 THEN 5101 ELSE PRINT MID$(COMM$,6,10);:COLOR FG,BG:PRINT:PRINT:GOTO 5105
  13. 5101 PRINT "450,"+PAR$+","+DTA$+","+STP$;:COLOR FG,BG:PRINT:PRINT
  14. 11000 BDA%=INP(&H3FB):OUT &H3FB,(BDA% OR &H80):OUT &H3F8,0:OUT &H3F9,1:OUT &H3FB,BDA%:BRUC=1
  15. 11010 IF Q=5 THEN OUT &H3FB,26 ELSE IF Q=6 THEN OUT &H3FB,3
  16. 11020 RETURN
  17.